home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Video Toaster 4.3
/
Video Toaster v4.3.iso
/
4.2
/
arexx
/
editor
/
export.rexx
< prev
next >
Wrap
OS/2 REXX Batch file
|
1998-04-16
|
1KB
|
49 lines
/* Export.rexx v1.0 -- Save current project with extra tags of interest */
/* to external programs. © 1995 NewTek Inc. Written by Marty Flickinger */
call addlib('PROJECT_REXX_PORT',0)
call set_view(2)
projlen=croutonsinproject()
if projlen=0 then call quit
curspot=0
do while (curspot<projlen)
call croutonpick(curspot)
if croutontype()="CLIP" then do
/* Mark tags to save w/project */
call croutonsavetag(RecFields)
call croutonsavetag(SMPTEtime)
end
curspot=curspot+1
end
call req_error("Export V1.0 --- Save current project with extra tags.")
rx startfilereq("Save Project Where?","toaster:projects","")
exit=1
do while exit=1
file=queryfilereq()
if file=0 then call quit
if file~="" then exit=0
address command "c:wait 1"
end
doit=1
if exists(file) then
if req_tell("Replace existing project?")=0 then doit=0
if doit=1 then do
call PROJECTSAVE(file)
end
call remlib("PROJECT_REXX_PORT")
exit
quit: PROCEDURE
call req_error("Canceled.")
call remlib('PROJECT_REXX_PORT')
exit